home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / chevaux.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  2.5 KB  |  98 lines
  1. 10 REM COURSE DE CHEVAUX
  2. 20 CLEAR :DIM A(3,4)
  3. 30 R=1:$="ABCD"
  4. 40 PRINT "-------<COURSE DE CHEVAUX>------";
  5. 50 FOR J=1 TO 5:BEEP:BEEP1:NEXT J
  6. 60 PRINT
  7. 70 PRINT"             CHEVAL             ";
  8. 80 PRINT " ";:FOR J=1 TO 4:PRINT "     ";MID$(J,1);:NEXT J
  9. 90 GOSUB 950 :GOSUB 950 :GOSUB 950 
  10. 100 PRINT :BEEP
  11. 110 CLS
  12. 120 INPUT "   COMBIEN DE JOUEURS ?:  ",P
  13. 130 IF P>5 THEN 120
  14. 140 IF P<1 THEN 120
  15. 150 CLS
  16. 160 PRINT "    TOUT LES JOUEURS ONT 20 F";
  17. 170 GOSUB 950 :GOSUB 950 
  18. 180 DIM X(2,P),Y$(P)
  19. 190 FOR J=1 TO P:X(2,J)=20:NEXT J
  20. 200 REM INITIALISATION
  21. 210 G=0
  22. 220 FOR J=1 TO 4
  23. 230 A(1,J)=0:A(2,J)=RAN#:A(3,J)=1+INT(10^(1.2-A(2,J)))
  24. 240 NEXT J
  25. 250 CLS
  26. 260 PRINT :PRINT " ********<COURSE ";R;">**********  ******************************";:GOSUB 950 :GOSUB 950 
  27. 270 REM ARGENT DU PARI
  28. 280 FOR J=1 TO P
  29. 290 PRINT :X(1,J)=0:Y$(J)=""
  30. 300 IF X(2,J)=0 THEN 550
  31. 310 CLS:PRINT "       JOUEUR";J;"A";X(2,J);"F";
  32. 320 GOSUB 950 :GOSUB 950 :GOSUB 950 
  33. 330 CLS
  34. 340 LOCATE 1,1:PRINT "CHEVAL";
  35. 350 FOR K=1 TO 4
  36. 360 LOCATE K*6+4,1:PRINT MID$(K,1);
  37. 370 NEXT K
  38. 380 LOCATE 1,2:PRINT"COTE";
  39. 390 FOR K=1 TO 4
  40. 400 LOCATE K*6+3,2:PRINT A(3,K);
  41. 410 NEXT K
  42. 420 GOSUB 950 :BEEP
  43. 430 REM    PRINT CSR0
  44. 440 A$=KEY$:IF A$="" THEN 440
  45. 450 IF A$="A"THEN 500
  46. 460 IF A$="B"THEN 500
  47. 470 IF A$="C"THEN 500
  48. 480 IF A$="D"THEN 500
  49. 490 GOTO 440
  50. 500 Y$(J)=A$
  51. 510 BEEP:PRINT :PRINT "LE JOUEUR";J;" JOUE LE CHEVAL ";A$;
  52. 520 INPUT "   ARGENT EN JEU ?:",X(1,J)
  53. 530 IF X(2,J)<X(1,J) THEN 510
  54. 540 X(2,J)=X(2,J)-X(1,J)
  55. 550 NEXT J
  56. 560 PRINT
  57. 570 PRINT "<FEU!>";
  58. 580 FOR K=1 TO 10:BEEP:NEXT K
  59. 590 PRINT
  60. 600 REM JEU
  61. 610 IF G=2 THEN 700
  62. 620 FOR J=1 TO 4
  63. 630 IF G>=1 THEN 660
  64. 640 PRINT CSRA(1,J);" ";
  65. 650 IF RAN#*(0.9+A(2,J)/10)>0.7 THEN A(1,J)=A(1,J)+1
  66. 660 IF A(1,J)=15 THEN G=G+1
  67. 670 PRINT CSRA(1,J);MID$(J,1);
  68. 680 NEXT J
  69. 690 GOTO 600
  70. 700 REM BUT
  71. 710 PRINT CSR0;"BUT!";
  72. 720 FOR J=1 TO 7:BEEP:BEEP1:NEXT J
  73. 730 GOSUB 950 
  74. 740 FOR J=1 TO 4
  75. 750 IF A(1,J)=23 THEN H=A(3,J):A$=MID$(J,1)
  76. 760 NEXT J
  77. 770 F=0
  78. 780 FOR J=1 TO P
  79. 790 M=0:IF X(1,J)=0 THEN 830
  80. 800 IF Y$(J)=A$ THEN M=X(1,J)*H
  81. 810 PRINT :BEEP
  82. 820 PRINT "JOUEUR";J;"->PRIX";M;"F";
  83. 830 X(2,J)=X(2,J)+M:GOSUB 950 
  84. 840 PRINT :BEEP:IF X(2,J)=0 THEN F=F+1
  85. 850 PRINT "JOUEUR";J;"A";X(2,J);"F";:GOSUB 950 
  86. 860 NEXT J
  87. 870 PRINT :BEEP:IF F=P THEN 930
  88. 880 PRINT "REJOUE-TU[O/N]?";
  89. 890 A$=KEY$:IF A$="" THEN 890
  90. 900 IF A$="O" THEN R=R+1:GOTO 200
  91. 910 IF A$="N" THEN 930
  92. 920 GOTO 890
  93. 930 PRINT :PRINT "************GAME OVER***********"
  94. 940 END
  95. 950  REM COMPTEUR
  96. 960  FOR K=1 TO 200:NEXT K
  97. 970  RETURN
  98.